home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / V / VZoom.st < prev   
Text File  |  1993-07-24  |  1KB  |  53 lines
  1. "    NAME        VZoom
  2.     AUTHOR        shin@mcshh.hanse.de (Thomas Braun)
  3.     FUNCTION    ZOOM function on middle mouse button
  4.     ST-VERSION    V
  5.     PREREQUISITES    
  6.     CONFLICTS
  7.     DISTRIBUTION    world
  8.     VERSION        1
  9.     DATE    11 Aug 90
  10. SUMMARY  ACTIVATE MIDDLE MOUSE BUTTON FOR ZOOM FUNCTION
  11.  10 August 1990 - Thomas Braun
  12.  This File installs the zoom function [F8] on the
  13.  middle button (if u hv!!) :-)
  14.  
  15. Newsgroups: comp.lang.smalltalk
  16. Summary: Changes to TerminalStream class
  17. Message-ID: <7905@mcshh.hanse.de>
  18. Date: 11 Aug 90 04:38:04 GMT
  19. "
  20. !
  21. "!
  22. Transcript cr;
  23.             show: 'Filing in TerminalStream changes...'! 
  24.  
  25. ! TerminalStream methods !
  26.  
  27. middleButton: value
  28.         "Private - Decode middle mouse button down event."
  29.     mouseOffset := Cursor offset.
  30.     mouseTime := Time mouseClockValue.
  31.     value = 16r3 ifTrue: [^ZoomFunction].
  32.     ^SetLoc !
  33.  
  34. mouseButtonDown
  35.         "Private - Decode all button down events."
  36.     | button value |
  37.     MouseEvent := true.
  38.     button :=
  39.         (value := CurrentEvent value) bitAnd: 16r3.
  40.     button = 16r1 "left button down"
  41.         ifTrue: [^self leftButton: value].
  42.     button = 16r2 "right button down"
  43.         ifTrue: [^self rightButton: value].
  44.     button = 16r3 "middle button down"
  45.         ifTrue: [^self middleButton: value].
  46.     ^SetLoc ! !
  47.  
  48. Transcript show: ' done.'; cr; cr!
  49.  
  50.  
  51.  
  52.  
  53.